home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / testfiles / TestGraphics < prev    next >
Encoding:
Text File  |  2000-05-09  |  1.2 KB  |  55 lines
  1. scr <- Screen new: 'TestScreen'
  2. scr setScreenModeID: 16r40D20001
  3. scr open
  4.  
  5. win <- Window new: 'TestWindow'
  6. win setFlags:       4111
  7. win setIDCMPFlags:  320
  8.  
  9. win openOnScreen:  'TestScreen'
  10.  
  11. crs <- Colors new: 'TestWindow'
  12.  
  13. crs loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
  14.  
  15. crs setWindowColorReg: 1 red: 12 green: 12 blue: 12
  16. crs setWindowColorReg: 2 red: 0  green: 0  blue: 8
  17. crs setWindowColorReg: 3 red: 8  green: 8  blue: 8
  18. crs setWindowColorReg: 4 red: 8  green: 0  blue: 8
  19. crs setWindowColorReg: 5 red: 0  green: 8  blue: 8
  20. crs setWindowColorReg: 6 red: 8  green: 8  blue: 0
  21.  
  22. itxt <-IText new: 'TestIText'
  23. itxt setIText:    'Testing Graphics primitives...'
  24.  
  25. itxt setPens:         5   @ 2
  26. itxt setITextOrigin:  100 @ 80
  27.  
  28. itxt registerTo:   'TestWindow'
  29.  
  30. win printIText: 'TestIText' at: 30 @ 20
  31.  
  32. p1 <- Painter new: 'TestWindow'
  33. p1 setAPen: 4
  34.  
  35. p1 movePenTo: 200@20
  36. p1 drawTo:    400@50
  37.  
  38. p1 setAPen: 5
  39. p1 drawBoxFrom: 100@70 to: 150@20
  40.  
  41. p1 setAPen: 6
  42. p1 drawLineFrom: 200@52 to: 400@52
  43.  
  44. p1 setAPen: 5
  45. p1 drawCircle: 400@200 radius: 50
  46.  
  47. p1 setAPen: 8
  48. p1 drawEllipse: 100@200 minaxis: 50 maxaxis: 100
  49.  
  50. p1 drawText: 'Test drawText Method' at: 100@55
  51.  
  52. p1 drawText: 'type:  "win close;scr close" to exit!' at: 100@70
  53.  
  54. itxt remove
  55.